home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / visds / taskicon.dsc < prev    next >
Encoding:
Text File  |  1999-05-02  |  878 b   |  38 lines
  1.     title TaskIcon Test
  2.     dialog create,TaskIcon Test,1000,1000,100,120
  3.     dialog add,TASKICON,TaskIcon,taskicon.dsr,No Mail
  4.     REM no DIALOG SHOW, we don't want a main window
  5.     %M =
  6. :loop
  7.   if %M
  8.     dialog set,TaskIcon,taskicon.dsr|766
  9.     dialog set,TaskIcon,Mail is waiting
  10.   else
  11.     dialog set,TaskIcon,taskicon.dsr
  12.     dialog set,TaskIcon,No Mail
  13.   end
  14.     wait event
  15.     %E = @event()
  16.     goto %E
  17. :TaskIconCLICK
  18.     if @equal(@click(b),RIGHT)
  19.         dialog popup,Settings|Close
  20.     end
  21.     goto loop
  22. :SettingsMENU
  23.   DIALOG CREATE,TaskIcon Properties,-1,0,228,100,NOMIN
  24.   DIALOG ADD,CHECK,cbMail,20,20,116,18,Is mail waiting?,%M
  25.   DIALOG ADD,BUTTON,OK,64,20,64,24,OK
  26.   DIALOG ADD,BUTTON,Cancel,65,145,64,24,Cancel
  27.   DIALOG SHOWMODAL
  28.     if @equal(@event(),OKBUTTON)
  29.         %M = @dlgtext(cbMail)
  30.     end
  31.     dialog close
  32.     wait event
  33.     %E = @event()
  34.     goto loop
  35. :CloseMENU
  36.   exit
  37. end
  38.